© Numerical Algorithms Group, 2002.

e04jaf_funct1 User Supplied Function Description

             [NAGWare Gateway Generator]

Copyright (c) 1993 by the Numerical Algorithms Group Ltd

funct1
(see also e04jaf) 


n                                     integer
xc (n)                                real
fc                                    real

[fc] = funct1(n,xc)


 function [fc] = funct1(n,xc)